home *** CD-ROM | disk | FTP | other *** search
/ X User Tools / X User Tools (O'Reilly and Associates)(1994).ISO / sun4c / archive / tcltk.z / tcltk / slib / tk / demos / size < prev    next >
Text File  |  1994-09-20  |  512b  |  17 lines
  1. #!///////////////////////////////////////////////////////////////////////////usr/STAGE/bin/wish -f
  2. #
  3. # Simple script to change size of something in a window.
  4.  
  5. if "$argc < 3" {error "Usage: size appName window option"}
  6. set appName [lindex $argv 0]
  7. set widget [lindex $argv 1]
  8. set option [lindex $argv 2]
  9.  
  10. scale .scale -command {send $appName $widget config $option} -label "Pixels" \
  11.     -length 250 -from 0 -to 100 -orient vertical
  12. pack .scale
  13.  
  14. bind . <Control-q> {destroy .}
  15. bind . <Control-c> {destroy .}
  16. focus .
  17.